o 

o 
o 

Q 
O 
O 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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RB0y SRC R809 SYSTEM OJAGNpSTIC 

,TITl,E RBW9 SYSTEM DIAGNOSTIC 
/8rfl7-7l, SMR 

/PtEASE REPORT ANY PROBUEMS TO 
/ STANLEY M, ROSE 
/ LABORATORY OF COMPUTER SCIENCE 
/ MASSACHUSETTS GENERA^ HOSPITAL 
/ 32 FRUIT STREET 
/ BOSTON! MASSACHUSETTS 02114 
/ (617) 12b^ZHVI 
/ 

/USES EAE , BUT SAVES HO, STEP COUNTER 
/ 

/ERRORS; 

/ 1} HARDWARE ERROR, LEGITIMATE BCD ADDRESS 
/ STATUS REGISTER 
/ DISK SIDE (0 OR 1} 
/ TRACK ADDRESS (IN OCTAL) 
/ SECTOR ADDRESS (IN OCTAL) 
/ 

/ 2? HARDWARE ERROR, ILLEGAL BCD ADDRESS 
/ 
/ 
/ 



STATUS REGISTER 
ADDRESS LOADED 



/ -^X MORE TYPE 1 OR 2 ERRORS THAN SPECIFIED BY CUODSW + 13 

/ WILL NOT REr^TBY THIS BLOCK 

/ 

/ 45 COMPARE ERROR 



DISK SIDE 

TRACK ADDRESS (OCTAL) 

SECTOR ADDRESS (OCTAL) 

CORE ADDRESS 

OFFSET 

EXPECTED 

RECEIVED 



/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 

/ S? MORE ERRORS/BLOCK THAN SPECIFIED BY CUODSW+23 
/ WILL RE-READ AND TRY AGAIN 

/ 

/ 6| RETRIED AS MANY TIMES AS SPECIFIED BY CUODSW+3] 

/ WILL GO ON TO NEXT BLOCK 

/ 

/ 7; ILLEGAL API ENTRY, NO FLAG SET 

/ STATUS REGISTER 

/ lORS 

.EUECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



CJ 

o 
o 
o 
o 
o 
o 



o 



o 



o 
o 
o 
o 






o 
o 
o 
o 
o 
o 
o 
o 
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rs^9 src rb09 system u{agngstic 

0! afte:r errors vi 10 or 11 the program shoulp reinialize anp restart 
HOWEVER n reentered illegally 
STATUS register 

lORS 

1? INTERRUPT ENTRY AFTER CLEARING STATUS REGISTER AND STARTING 
NO NEW 10 OPERATION 
STATUS REGISTER 
lORS 



70770H A 
707764 A 

64105^0 A 



703^^4 A 

703>544 A 

7051301 A 

705tJ04 A 

705i?12 A 



/ 1 

/ 

/ 

/ 

/ 

f X 

/ 

/ 

f 
/ 

EEM 

EBA 

f 

CLA 

/ 

/ 

/ 

DBK 

PBR 

SRI 

ISA 

RPL 



=707702 

= 643,000 



=70330^ 
=703344 
=705501 
=705504 
=705512 

.EJECT 



/FOR P0P9 OR 15 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 

PAGE 

o 



o 

o 

STIC 

o 

-^ - ,, -..- „.,_. /IP, API CHANNEL, 7 (BIT 2 SET TESTS MA I NT, J 

O " /{BIT 3 SET IS TEST WJTH ONLY 64 WORD TESTS) O 

/MAX, MUM8ER OF F^ETRIES ON HARDWARE ERRORS 

/MAXINUM NUM, QF REPORTED COMp, ERRORS / BUOCK 
(J 00004 R mdmx A CMPMAX 1 /MAXIMUM NUM, OF REREADS ON CQMP, ERRORS O 

/NORMAL ENTRY ADDRESS 

/INITIALIZE ADDRESS 



o 



u 



O 



KJ 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



3 




RB0y 


SRC 


RB09 SYSTEM PI AG 












/ 

UODSW 


.EBREL 


00000 


R 


6000137 


A 




600007 


0000X 


R 


000002 


A 




HRDMAX 


2 


00002 


R 


000005 


A 




blkcmp 


5 


00003 


R 


000001 


A 




CMPMAX 


1 


00004 


R 


0000/6 


R 






,DSA RBSERV 


00005 


R 


000032 


R 






,OSA RBINIT 


00006 


R 


220260 


A 






,SIXBT "RB09 


00007 


R 


7140^0 


A 








0003,0 


R 


000004 


A 




SWITOH 


4 


00011 


R 




A 






.BLOCK 7 


00020 


R 


000000 


A 




SYSCOM 





00023, 


R 


000000 


A 




ERWC 





00022 


R 


000000 


A 




ERCOOE 



jREPT 7 


00023 


R 


000000 


A 









00024 


R 


000000 


A 


<>R 






00025 


R 


000000 


A 


ttR 






00026 


R 


000000 


A 


*R 






00027 


R 


000000 


A 


«R 






00030 


R 


000000 


A 


<*R 






00031 


R 


000000 


A 


«R 







/HPLO ON SWITCH 15 



/REST OF PRINT BUFFER 



O .EJECT 



a 

O 



/SYSTEM COMMUNICATION WORD 
_ /TWO'S COMPLEMENT NUMBER OF WORDS TO PRINT 

O 00022 R 000000 A ERCODE /FIRST WORD OF MESSAGE O 



O 



O 
O 
O 
O 
O 

o 
o 
o 
o 
o 
o 
o 

o 



u 
o 



o 
o 
o 
o 
o 
o 
o 

o 



PAPE f^ RB0y SRQ RE309 SYSTEM UIAGNOSTIQ 



00075 R b2mo2 R JMPtt RBINJT 

.EJECT 



o 



o 



O 00032 R 740040 A RBINIT XX /JNITAUIZE AMD START UP ^ 

000^3 R 707764 A EBA 

00044 R 707702 A EEM /g-^lS C0MPATI8l,E ALTHOUGH NO 15'S WITH RB09J 

O 00035 R 140.021 R D2M EHWC 

00036 R 140022 R ,D2M ERCQUE 

00037 R 2017!34 R UAC (8UFF 

O 00040 R 0407!?2 R DAC BUFFER /MOVING BUFFER INITIAL LOCATION ^ 

00041 R 777700 A LAW «100 

00042 R 040S/0 R DAC DSKWC 
O 00043 R 200000 R LAC UQDSW /CHECK JF KiAINTENANCE SECTORS 

00044 R 5017^!3 R ANP (100»00 /SHOULD BE USED (BIT 2) 

00045 R 741200 A SNA 
O 00046 R 6000t?7 R JHP RBINTI 

00047 R 201756 R LAC (120 " /YES 

00050 R 040737 R DAC PRIME 

O 00051 R 201757 R LAC <200 

00052 R ©49/20 R DAC MAITSC 

00053 R 777766 A LAW =12 
O 00054 R 040750 R DAC RUNNMS 

00055 R 140/51 R DZM START /MUST START ON FOR MAINTENANCE 

00056 R 600064 R JMP R8INT2 

O " / 

00057 R 140720 R RBINTl DHM MAITSC 
00060 R 201760 R LAC (127 /INCREMENT TRACK BY 1«SECT0R BY 7 

O 00061 R 040737 R DAC PRIME 

00062 R 7777/5 A LAW r,6 

00063 R 040750 R DAC RUNNMB /QN^Y USED WHEN 'STAY IN 64 WQRO/TRANSFER ' MODE 

O ' / 

00064 R linii> A RBINT2 LAW «5 

00065 R 040-ii20 R DAC SYSqOM /NEXT ENTRY THROUGH RBSERV 
O 00066 R 201761 R LAC (WRITE 

00067 R 040174 R DAC EXIT ' 

00070 R 040745 R DAC ARTFLG /NEXT ENTRY ARTIFICIAL 

O 00071 R 200751 R LAC START 

000/2 R 040740 R DAC BLOCK /INITIAL BLOCK 

00073 R 703344 A DBR „ 

00074 R 400075 R XCT ,+1 /NEC, ON 9 U 



O 
O 

o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 



o 
o 



u 



o 
o 
o 
o 
o 
o 

o 



PAGE S RBKV SRQ RB09 SYSTEM DJAGNQSTIC 



o / 

00101 F^ 0407^50 R OAC ACSAVE 

00102 R 64l0aii A LACQ 

O 00103 R 0407^3 R DAC MQSAVE 

06)104 R- 6410^3, A LACS 

00105 R 0407^2 R DAC SCSAVE 

O 00106 R 2017^*^ R UAC (400000 

00107 R 705^01 A SPI 

00110 R 6001^ii R JMP APIOFF /NOn^API ENTRY 

O 00111 R 400722 R XCT DSSF 

0011J^ R 6001^7 R JMP ERR0R7 /lULEGAL API 



00117 R 7402^0 A SZA 

001^0 R 60016^ R JMP lUUINT /YESi BUT FLAG IS SET 



00124 R 7S0000 A CLA 

00125 R 0407^0 R DAC ACSAVE 



EJECT 



o 
o 



O 00076 R 740040 A RBSERV XX /NORMAL ENTRY POINTR O 

00077 R 707764 A EBA 

00100 R 707702 A EEM /FOR 9^15 



O 

o 
o 
o 
o 



/ 

O 00113 R 400724 R R8SER1 XCT QSRS 

00114 R 040743 R DAC STAT 

00115 R 40072S R XCT DSCS 

00116 R 200745 R LAC ARTFLG /WAS ARTIFICIAL ENTRANCE EXPECTED? O 



'~\ 



O 00121 R 620174 R JMP« EXIT /CONTINUE FROM LAST E^IT O 

/ 

00122 R 400722 R APlOFF XCT DSSF /FLAG UP? 

O 00123 R 600127 R JMP APlQFl /NO O 



O 
O 



O 00126 R 600113 R JMP RBSEHl 

/ 

00127 R 200745 R APIOFl LAC ARTFLG /ARTIFICIAL ENTRY EXPECTED? 

O 00130 R 755201 A SNAJCLCICLL 

00131 R 600134 R JMP NOFLAG /NO 

00132 R 200020 R LAC SYScOM /READY FOR ARTlFIClAl ENTRY? . _ 
O 00133 R 750201 A SZAiCLC /SYSCOMa0 MEANS READY O 

00134 R 620076 R NQFLAG JMP'-* RBSERV /NOT THIS DEVICE 

00135 R 140745 R - D^M ARTFLG /ARTIFICIAL ENTRANCE ACHIEVED 

O 00136 R 620174 R JMP» EXIT /CONTINUE ON O 



O 

o 
o 
o 
o 
o 
o 



u 
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RB0y 


SRC 




RB09 SYSTEH PIAGNQSTJC 


o 


003,37 


R 


100225 


R 


ERR0R7 


UMS 


PUTCHK 




0014 


R 


201763 


R 






LAC 


rn 




00141 


R 


040022 


R 






DAC 


ERCOOE 


o 










/ 










0B142 


R 


400724 


R ■ 


ER7 


a 


XCT 


DSRS 




00143 


n 


040023 


R 


e:r7 


|2 


OAC 


ERCOUE+1 


o 


00144 


R 


7777/5 


A 






LAW 


a3" 




00145 


R 


040021 


R 






DAC 


ERWC 




00146 


R 


4007 24 


R 






XCT 


DSRS 


o 


00147 


R 


040023 


R 






DAC 


ERCOQE+1 




00l!30 


R 


700314 


A 






lORS 




001t>l 


R 


040024 


R 






DAC 


ERC0PE*2 


o 


00li?2 


R 


7777/5 


A 






LAW 


o3 " 




00j,b3 


R 


040020 


R 






DAC 


SYSCOM /R 




00154 


R 


040745 


R 






DAC 


ARTFLG 


o 


001t)5 


R 


400725 


R 






XCT 


DSCS 




00156 


R 


1001/4 


R 






JMS 


exIt 




00157 


R 


100225 


R 






JMS 


PUTCHK 


c 


00160 


R 


201764 


R 






LAC 


(10) 




00161 


R 


040022 


R 






DAC 


ERCOOE 




00162 


R 


600142 


R 






JHP 


ER7,1 


o 










/ 










00153 


R 


100225 


R 


J LI, I NT 


JMS 


PUTCHK 




00164 


R 


201765 


R 






LAC 


(ii) 




00163 


R 


040022 


R 






OAC 


ERCOUE 




00166 


R 


200/43 


R 






LAC 


STAT ■ 




00167 


R 


600143 


R 






JHP 


ER7f2 


o 














lEJtCT" 



o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



/RESTART FROM SCRATCH 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
c 
o 
o 
o 
o 
o 
o 



o 
o 
o 

o. 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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RS0y 



SRC 



RB09 SYSTEM DIAGNQSTIC 



00170 


R 


740040 


A 


MONEXT 


XX 


00171 


R 


140745 


R 




DHM ARTFl,G 


001/2 


R 


100174 


R 




JMS EXIT 


00173 


R 


620170 


R 


/ 

EXIT 


JHP* MONf:XT 


00174 


R 


740040 


A- 


XX 


00173 


R 


200732 


R 




LAC SCSAVE, 


3017 6 


R 


241766 


R 




XOR (11 


00177 


R 


341767 


R 




TAD <6404t32 


00200 


R 


5017/0 


R 




AND (6404 7 7 


0201 


R 


040202 


R 




OAC ,+i""' 


00202 


R 


740040 


A 




XX 


00203 


R 


200733 


R 




I.AC MQSAVt 


00204 


R 


652000 


A 




UMQ 


002M5 


R 


200730 


R 




UAC ACSAVE 


00206 


R 


703344 


A 




OBR 


00207 


R 


400210 


R 




XCT ,+1 


00210 


R 


620076 


R 


/ 


JMP« RBSERV 


00211 


R 


74004 


A 


/ 

ARTXIT 


XX 


00212 


R 


200020 


R 




UAC SYSCQM 


00213 


R 


740200 


A 




SZA 


00214 


R 


600220 


R 




JMP I*'* 


00213 


R 


140021 


R 




D2M ERWC 


00216 


R 


77.77 73 


A 




UAW «& 


00217 


R 


741000 


A 




SKP 


00220 


R 


777776 


A 




LAW nZ 


00221 


R 


040020 


R 




DAC SYSOOH 


00222 


R 


04074b? 


R 




DAC ARTFLG 


00223 


R 


1001/4 


R 




JMS EXIT 


00224 


R 


620211 


R 




JMP« ARTXIT 
.EJECT 



/NORMAL INTERRUPT EXIT 



/ALL EXITS THROUGH HERE 
/RESTORE STEP COUNTER 
/CHA 

/CREATE SHIFT 

/EXECUTE CREATED SHIFT 



/RETURN TO MONITOR 



/LEAVE EITHOUT STARTING ANY 
/NEXT ENTRANCE WITHOUT FLAG 
/ANY ERRORS IN TABLE? 

/YES, Change to -2 



10 
SET 



o 
o 
o 
o 

o 

O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 

o 
o 
o 
o 

o 



u 
o 

page: 8 RB09 SRC RB09 SYSTEH UI AGNOSTIC 
O 00225 R 740040 A PUTCHK XX /CHECK IF ANYTHING IN OUTPUT TABUE 






u 



O 
O 

o 
o 
o 

o 



00225 
00226 
00227 
00230 
00231 


R 
R 
R 
R 
R 


740040 
20002B 
7412M0 
60023H 
100211 


A 
H 
A 
R 
R 


PUTCHK 

/ 
PUTCKl 


XX 
LAC 

SNA 
JMP 
JMS 


SYSCOM 

PUTCKl 
ARTXlf 


00232 


R 


777777 


A 


LAW 


'-I 



.EJECT 



u 
o 
o 



/OK? ^,, 

/YES, TABLE EMPTY '-^ 

o 
o 
o 
o 

c 
o 



00233 R 0^0020 R DAC SYSCOM 

00234 R 620225 R JMPit PUTCHK 
O ^ - - 

/OUTPUT AM RB09 BCD DJSK APDRESS INTO ERRTABLE 
/ STARTING AT CBBtMP23 

O /SIDE OR 1 " 

/OCTAL OF TRACK (0^99 DEC|) 
/OCTAL OF SECTOR (0'^70 OECi) 

C) / 

00235 R 740040 A BCDOUT XX 

00236 R 20066^ R LAC BINBCD 
O 00237 R 673602 A UMQ ! CLAC ? LLSS+2 

00240 R 060716 R OAC« BBTHP2 

00241 R 440716 R ISif BBTHP2 
O 00242 R 641604 A CLAC!LLS+4 

00243 R 744010 A RCL /MULT, BY 2 

00244 R 040715 R DAC BBTMPl ^ 
O 00245 R 742010 A RTL /MULT, BY 4 (^2) U 

00246 R 340715 R TAD BBTMPl ■ 

0024 7 R 040/15 R DAC SBTMRl 

O 00250 R 641604 A CLACILLS+4 

00251 R 340715 R ^ TAD BBTMPl 

00252 R 060716 R DAC» BBTMPS 
O 00253 R 440716 R ISE BBTMP2 

00254 R 641604 A CLAClLLS+4 

00255 R 74 4010 A RCL /Sltt2 

O 00256 R 040715 R DAC BBTMPl ^ 

00257 R 742010 A ' RTL /Sl»8 

00263 R 340715 R TAD BBTMPl /Si*10 

O 00261 R 040/15 R DAC BBTMPi ^ 

00262 R 641604 A CLAC;LLS+4 

00263 R 340715 R TAD BBTMPl 
O 00264 R 060716 R OAC^ BBTMP2 

00265 R 620235 R JMP* BCDOUT 



O 
O 



O 
O 
O 

o 
o 
o 
o 



o 












o 
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RB09 


SRQ 


RB09 SYSTEM DIA 


o 










/RB09 HANDLER 




00266 


R 


2007^2 


R 


WRITE UAC BUFFER 




00267 


R 


040/46 


R 


DAC POINTR 


o 


00270 


R 


2005/0 


R 


|„AC OSKWC 




002/1 


R 


744022 


A 


STURAR 




00272 


f^ 


744022 


A 


STUJRAR 




00273 


R 


040744 


R 


DAC l_OOP 




00274 


R 


200740 


R 


UAC BLOCK 




0027 5 


R 


240/35 


R 


XOR HASH 


c 


00276 


R 


063746 


R 


WRITE! DAC« POINTR 




00277 


R 


4 40/46 


R 


J3Z POINTR 




00300 


R 


3417/i 


R 


TAD (1 


o 


0030,1. 


R 


060746 


R 


DAC^» POINTR 




00302 


R 


4 40 7 4 6 


R 


IS2 POINTR 




m'iWi 


R 


341771 


R 


TAD (1 


o 


00304 


R 


060746 


R 


DAC» POJNTR 




00303 


R 


440746 


R 


ISH POINTH 




00306 


R 


3417/1 


R 


TAD (1 


o 


00307 


R 


060746 


R 


OAC» POINTR 




00310 


R 


440746 


R 


IS2 POINTR 




00311 


R 


341771 


R 


TAD (1 


o 


00312 


R 


440744 


R 


182 LOOP 




00313 


R 


600276 


R 


JMP WRITE! 




00314 


R 


200740 


R 


LAC BLOCK ' 


o 


0031S 


R 


10066^ 


R 


JMS BIN8GD 




00316 


R 


04066S 


R 


DAC BiNBCO 




00317 


R 


2017/2 


R 


LAC (7000' 


o 


00320 


R 


100553 


R 


JMS DISK 




00321 


R 


100557 


R 


JMS MdVBUF 




00322 


R 


200743 


R 


LAC BLOCK 




00325 


R 


340737 


H 


TAD PRIME 
»OEC 




00324 


R 


341/73 


R 


TAD (-'16000 




00325 


R 


741100 


A 


SpA 




00326 


R 


3417/4 


R 


TAD <16000 
.OCT 


o 


0032 7 


R 


040/40 


R 


DAC BLOCK 




00330 


R 


540751 


R 


SAD START 




00331 


R 


741000 


A 


SKP 


o 


00332 


R 


600266 


R 


JMP WRITE 
, EJECT 


o 












o 












o 












o 












o 












o 













/CUT LOOP BY 4 FOR INCREASED SPEED 



/WRlTEi INT, EN 
/MOVE THE BUFFER 

/NO GREATER THAN 15999 



/PONE WITH WRITING DISK, NOW READ 



o 
o 
o 

o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



o 



o 
o 
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R80y 


SRQ 


RB09 SYSTEM PIAGNQSTIC 


o 










/R809 


READ ROUTINE 






00333 


R 


200003 


R 


READ 


l,AC CMPMAX 






00334 


R 


74 00!i51 


A 




CMA 


/NUMBER OF REREADS ON COMPARE 


o 


00335 


R 


040742 


R 




DAC ROFTRY 






00336 


R 


200740 


R 


READ2 


tAC bCock 






00337 


R 


100665 


R 




JMS BINBGU 




o 


00340 


R 


040665 


R 




OAC BlNBCD 






00341 


R 


201775 


R 




UAC (6000 


/REaDi INT, EN 




0034H 


R 


10055^ 


R 




sJMS DISK 




o 


00343 


R 


200/52 


R 




UAC BUFFER 






00344 


R 


4 0/46 


H 




DAC POINTK 






00345 


R 


2005/0 


R 




UAC DSKWq 




o 


00346 


R 


744022 


A 




STLIRAR 






00347 


R 


744022 


A 




STUIRAR 






003b0 


R 


040744 


R 




DAC LOOP 




o 


003S1 


R 


200002 


R 




UAC BLKCMP 


/NUMBER OF COMPARE ERRORS 




003S2 


R 


740001 


A 




CMA 


/PER BLOCK WHICH ARE REPORTED 




003S3 


R 


341771 


R 




TAD U 




o 


003ij4 


R 


040731 


R 




DAC REPLOP 






003SS 


R 


200740 


R 




LAC BLOCK 






003ip6 


R 


240736 


R 




XOR HASH 




o 


00357 


R 


560746 


R 


REA03 


SAD« POINTR 






P30360 


R 


741000 


A 




SKP 






00361 


R 


100471 


R 




JMS RDEROR 




o 


00362 


R 


440746 


R 




isz POiNTR 






00363 


R 


341771 


R 




TAD (1 ■ 






00364 


R 


560/46 


R 




SAD* POINTR 




o 


00365 


R 


741000 


A 




SKP 






00366 


R 


1004 71 


R 




JMS RPEROH 






00367 


R 


440746 


R 




IS2 POINTR 




o 


00370 


R 


341771 


R 




TAD <i 






003 71. 


R 


560/46 


R 




SAD« POJNTH 






00372 


R 


741000 


A 




SKP 




o 


00373 


R 


100471 


R 




JMS RPEHPR 






00374 


R 


440746 


R 




ISZ POINTR 






00375 


R 


341771 


R 




TAD (1 




o 


00376 


R 


560746 


R 




SAD* PQINTR 






0037 7 


R 


741000 


A 




SKP 






00400 


R 


1004/1 


R 




JMS RDEROR 




o 


00401 


R 


440746 


R 




152 POINTR 






00402 


R 


341771 


R 




TAD U 






B0403 


R 


440744 


R 




ISZ LOOP 




o 


00404 


R 


600357 


R 




JMP REAU3 






00405 


R 


100537 


R 


READl 


JMS MOVBUF 


/MOVE THE BUFFER 




00406 


R 


200740 


R 




LAC BLOCK" 







00407 


R 


340737 


R . 




TAD PRIME 
,DEC 






00410 


R 


3417/3 


R 




TAD <sl6000 







004H 


R 


741100 


A 




SPA 






00412 


R 


341/74 


R 




TAD (16000 
,OCT ■■ 




o 


00413 


R 


040740 


R 




DAC BLOCK 






00414 


R 


540751 


R 




SAD START 


/DONE READING? 


o 
















o 

















ERRORS 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o. 
o 
o 
o 
o 
o 



o 



o 

o 



PAGE H 




RB0y 




00415 


R 


741000 


A 


004X6 


R 


600v533 


R 


&0417 


R 


200/36 


R 


00420 


R 


301776 


R 


00421 


R 


040/36 


R 


00422 


R 


200000 


R 


00423 


R 


5017^5 


R 


00424 


R 


74 0200 


A 


00425 


R 


600460 


R 


00426 


R 


2007i>l 


R 


00427 


R 


341771 


R 


00430 


R 


341773 


R 


004,51 


R 


741100 


A 


004v52 


R 


3417/4 


R 



SRC 



RB09 SYSTEM DIAGNOSTIC 



00433 
00434 
00435 
00436 
00437 
00440 
0,0441 
00442 
00443 

00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 

00460 
00461 
00462 
004 63 
00464 
00465 
00466 
00467 
00470 



040751 
040/40 
200000 
5017 77 
740200 
600460 
200570 
744010 
5420»0 
60046^ 
040573 
542001 
202002. 
542003 
202004 
542005 
202006 
040/^7 
201754 
.040/52 
600266 

440750 
600266 
100225 
140021 
140022 
77 77/4 
0400 2 
100170 
740040 



/ 

DONEi 

DONE 



SKP 

JMP 

i,,AC 

ADD 

DAC 

LAC 

AND 

S2A 

JMP 

UAC 

TAO 

.DEC 

TAD (-16000 

SPA 

TAD (16000 

,OCT 

DAC START 
BUOCK 
UOPSW 

(04!!]000 



READ 
HASH 
(677/73 

HASH 

UODSW 

(100000 

DONE! 
START 
(i 



DAC 
lAC 
AND 
SZA 
JHP 
LAC 
RCL 
SAD 
JMP 
DAC 
SAD 
LAC 
SAD 
LAC 
SAD 
LAC 
DAC 
LAC 
PAC 
JMP 



DONEl 
DSKWC 

(^2000 

done' " 

DSKWG 
(c200 
(136 

(rr-400 

(134 

(-1000 

(150' " 
PRIME 
(BUFF 
BUFFER 

WRITE 



ISH 
JMP 
JMS 
DS?M 
D^M 
LAW 
DAC 
JMS 
HLT 
, EJECT 



RUNNMB 

WRITE 

PUfcHK 

ERWC 

ERCOiJE 

r-4"" 

SYSCQM 

MdNEXT 



/YES 

/CALCULATE NEW HASH FOR NEXT PASS 

/MAINTENANCE MODE? 

/YES 

/INCREMENT FIRST BLOCK 

/RAP AROUND? 

/NO 

/STAY IN 64 WORD/BLOCK MODE? 



/YESi 6 PASSES PER COMPLETE PASS 
/CALCULATE NEW WORD COUNT 
/MUtTf BY 2 
/RAp AROUND? 



/CALCULATE NEW APPRQRIATE PRIME 

/TRACK BY 1. SECTOR BY 6 

/TRACK BY 1, SECTOR BY %2 

/TRACK BY %, SECTOR BY g4 

/RESET BUFFER To START OF LARGE BUFFER 

/FINISHED? 
/YES 



/SHOULD NOT RETURN HERE 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
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RBB9 




o 


00471 


R 


740040 


A 




004/;^ 


R 


040747 


R 


o 


00473 


R 


100225 


R 




00474 


R 


2020^7 


R 




00475 


R 


040022 


R 


o 


004/6 


R 


777770 


A 




00477 


R 


040021 


R 




00500 


R 


202010 


R 


o . 


00501 


R 


040716 


R 




00502 


R 


100235 


R 




00503 


R 


200746 


R 


o 


00504 


R 


040026 


R 




00505 


R 


200752 


R 




. 00506 


R 


7400>iU 


A 


o 


0(>550 7 


R 


341771 


R 




00510 


R 


34B746 


R 




00511 


R 


040027 


R 


o 


00512 


R 


220746 


R 




00513 


R 


040030 


R 




00514 


R 


2007 4 7 


R 


o 


00515 


R 


040031 


R 




00516 


R 


440731 


R 


o 


00517 


R 


600535 


R 




005ii0 


R 


100225 


R 




00521 


R 


777777 


A 


o 


00522 


R 


040021 


R 




00523 


R 


202011 


R 




00524 


R 


040022 


R 


o 












00525 


R 


440742 


R 




00526 


R 


600336 


R 


o 


00527 


R 


10022,5 


R 




00530 


R 


777 7 77 


A 




00531 


R 


040021 


R 





00532 


R 


202012 


R 




00533 


R 


040022 


R 




00534 


R 


6004^'5 


R 


o 












00535 


R 


200747 


R 


o 


00536 


R 


620471 


R 


o 










o 





















o 










o 











SRQ 



Re09 SYSTEM DJAGNOSTIC 



RDEROR 



RDFERR 



ROFERl 



/ 

/ 

ROREP 



XX 

DAC RPCHAK 

JMS PUTCHK 
l^AC (4? 
DAC ERCODI; 
lAVI b10 
DAC ERWC 
t.AC (ERGODE*! 
DAC BBTMP2 
JMS BCDQUT 
UC POINTR 
DAC ERC0DE*4 
I^AC BUFFER 
CMA 

TAD a 
TAD PGINTR 
DAC ERCOUE+S 
l,AC» ROINTR 
DAC ERCaOE*6 
UAC ROCHAR 
DAC ERC0DEt7 

ISH REPLOP 
JMP RQREP 
JMS PUTCHK 
LAW »i 
DAC ERWC 
LAC (5) 
DAC EF^COOE 

ISZ RDFTRY 

JMP READi^' 

JMS PUTCHK 

LAW 'i 

DAC ERWC 

LAC (6) 

DAC ERCQPE 

JMP REAOl 



/COMPARE ERROR 



/POINTER FOR BODOUT 



LAC 
JMP 
»EJ 



RPCHAR 
« ROERUR 
ECT 



/DONE REPORTING ERRORS. |N THIS BLOCK? 
/YES 



/REREAD? 

/YES 

/NO 



/CHECK MORE 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 

o 



o 
o 

o 
o 
o 

o 



page; 1:5 RB09 SRQ RB09 SYSTEM UIAGNgSTIC 



o 

o 



O /ROUTINE TO MOVe 8UFFtR WITHIN LARGE; AVAlUABlE BUFFER O 

/ .... - .. ... ..... w 

00537 R 740040 A MOVBUF XX 

O 0fc)&40 R 200iJ/0 R LAC DSKWC /CALCULATE NEEDED BUFFER Slit O 

00S41 R 7400WI A CMA ' '"• ■ 

00542R3417 71R TAD(1 

O 0»543 R 340/t>H R TAD BUFFER /IS THERE ROOM AVAILABLE TO MOVE? O 

00544 R 54l7!?v5 R SAD BUFEND ' 

00545 R 600^50 R JMP MdVBFl /NO, RESET IT TQ START 

O 00546 R 440/52 R IS? BUFFER /YES». INCREMENT IT " ' O 

00547 R 620537 R JMP» MOVBUF 

00550 R 201/54 R MOVBFl LAC (BUFF' 

(J 0055 J R 040752 R DAC BUFFER /RESET JT O 

0ki5S2. R 6H0557 R JMP<» MOVBUF 

/ 

o / 



/ 

00553 R 740040 A DISK XX /RB09 START UP ROUTINE 

O 00554 R 040745 R DAC FNSAVE 

00555 R 200001 R t,AC HHDMAX /NUMBER OF RETRIES ON HARDWARE ERRORS 

00556 R 7400Sdil A CMA 
O 00557 R 040741 R DAC ERRCNT 

00560 R 750004 A DlSKRP LAS ' ' /HOLD SWITCH SET 

00561 R 500010 R AND SWITCH 
O 00562 R 741200 A SNA 

00563 R 600566 R JMP ,t3 /MQ 

00564 R 100211 R JHS ARTXIT /yEg 
O 00565 R 600560 R JHP DISKHP 

00566 R 200752 R LAC BUFFER 

00567 R 400726 R XCT DSLM 
O 00570 R 777700 A DSKWC LAW ^100 

00571 R 400723 R XCT DSLW 

00572 R 200665 R LAC BIN8C0 
O 005/3 R 400721 R XCT DSLP ' 

00574 R 200735 R LAC FNSAVE 

005/5 R 400727 R XCT DSLS ' 

O dli576 R 100170 R JMS MONEXT /GO AWAY UNTIL INTERRUPT O 

/RETURN HERE ON INTERRUPT 

00577 R 200743 R tAC STAT * 

O 00600 R 740100 A SMA " /ERROR? • O 

00601 R 620553 R JMP» P|SK /NO • 

jEJECf 



o 
o 
o 
o 
o 
o 
o 



o 
o 

o 
o 
o 

o 



u 
o 

c 



o 



u 

o 
o 



o 



o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 

o 
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RBkJy 



SRC 



RB09 SYSTEM D{AGNpST|g 



0060a 


R 


100225 


R 


JMS PUTCHK 


/SYSCOM n\ NOW? 


30603 


R 


200665 


R 


LAC BINBCQ 


/NOi CHECK IF 1,EGAL 


00604 


R 


653601 


A 


LMQ5CLAQmL,S + l 


/SHODLO BE ZERO 


30605 


R 


744200 


A 


S2A!C|,l, 




00606 


R 


600633 


R 


JMP DISK2 




00607 


R 


660605 


A 


LUSS+5 




00610 


R 


502013 


R 


AND (17 




00611 


R 


342014 


R 


TAD Ci2 


/9 DEC, OR LESS 


00612 


R 


740100 


A 


SMA 




00613 


R 


600633 


R 


JMP 0ISK2 




00614 


R 


640604 


A 


L,!nS + 4 ■ 




00615 


R 


502013 


R 


AND (1/ 




00616 


R 


342014 


R 


TAD (-?12 




00617 


R 


744100 


A 


shajclC 




00620 


R 


600633 


R 


JMP DISK2 




00621 


R 


640604 


A 


LLS+4" 




00622 


R 


502013 


R 


AMD (17 




00623 


R 


342015 


R 


TAD (^10 


/7 OR LESS 


00624 


R 


744100 


A 


SMAICLL 




00625 


R 


600633 


R 


JMP D1SK2 




00626 


R 


640604 


A 


US*4 




00627 


R 


502013 


R 


AND (17 




00630 


R 


342014 


R 


TAD (^12 




00631 


R 


745100 


A 


spaiclC 




00632 


R 


600644 


R 


JMP DISK3 


/GOOD ADDRESS 


00633 


R 


7777 75 


A DISK2 UAW -3" 




00634 


R 


040021 


R 


oac erwc 




00635 


R 


202016 


R 


UAC (2) 




00636 


R 


040022 


R 


OAC ERCODE 




00637 


R 


200743 


R 


LAC STAT 




00640 


R 


040023 


R 


OAC ERCODE*! 




00641 


R 


200665 


R 


L,AC BiNBCD 




00642 


R 


040024 


R 


DAC ERCODE+2 




00643 


R 


600655 


R 

/ 

R 01 


JMP DiSK4' 




00644 


R 


2^^1771 


SK3 LAC (1) 




00645 


R 


040022 


R 


DAC ERCODt; 




00646 


R 


777773 


A 


LAW ^5~ 




00647 


R 


040021 


R 


PAC ERWC 




00650 


R 


200743 


R 


LAC StAT 




00651 


R 


040023 


R 


QAC ERCODE+l 




00652 


R 


202017 


R 


LAC (ERCQDE+2 




00653 


R 


040716 


R 


OAC 8BTMP2 




00654 


R 


100235 


R 01 


JMS BQpOUt 




00655 


R 


440741 


SK4 ISZ ERRCNT 


/RETRY? 


00656 


R 


600560 


R 


JMP DISKRP 


/YES 


00657 


R 


100225 


R 


JMS PUtCHK 




00660 


R 


202020 


R 


LAC (3) 


/RETRIED AS MANY Tlf 


00661 


R 


040022 


R 


DAC ERCqpE 


/AS SPECIFIED BY HR( 


00662 


R 


nil 11 


A 


LAW r,x 




00663 


R 


040021 


R 


DAC ERWC 




00664 


R 


620553 


R 


JMP« DISK 





BCD FORMAT ADDRESS 



o 
o 
o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
o 



o 



o 
o 
o 
o 
o 
o 



'-^ 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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00665 


R 


740040 


A 


BJNBCP 


XX 


00666 


R 


7 4 4 fc-' 


A 




CL-l, 


006 67 


R 


653323 


A 




10 IV 


00670 


R 


000012 


A 


• 12 


12 


0fc)6/l, 


R 


0407X5 


R 




DAC BBTMPl 


00672 


R 


641323 


A 




CLAC'DIV 


00673 


R 


000010 


A 


tX^ 


10' 


0067 4 


R 


040716 


R 




DAC BBTHP2 


006/5 


R 


641323 


A 




CLACJOIVJ ' 


00676 


R 


000012 


A 






00677 


R 


040/17 


R 




DAC BBTMP3 


00700 


R 


6410iJ2 


A 




IhCQ 


00701 


R 


342014 


R 




TAD ('12 


00702 


R 


740100 


A 




SHA 


00703 


R 


342012 


R 




TAD (6 


00704 


R 


340670 


R 




TAD ,12 


00705 


R 


6607U4 


A 




AUSS+4 


00706 


R 


30071/ 


R 




ADD BBTMP3 


00707 


R 


660704 


A 




ALSS+4 


00710 


R 


300716 


R 




ADD BBTMP2 


00711 


R 


660704 


A 




ALSS*4 


00712 


R 


300715 


R 




ADD BBTMPl 


00713 


R 


300720 


R 




ADD MAITSC 


00714 


R 


620665 


R 


BBTMPl 


JMP« BINBCD 


00715 


R 


000000 


A 





00716 


R 


000000 


A 


BBTMP2 





00717 


R 


000000 


A 


BBTHP3 

/ 

HAITSC 





00720 


R 


000000 


A 















,E^ECT 



o 
o 

/lUll HB09 BINARY TO BQD CONVERTER O 

O 

o 
o 



12 



o 



o 
o 
o 

C 00713 R 300720 R ADD MaJTSC /0 UNLESS RUNNING MA|NT, TEST O 



O 
/200 IF RUNNING MAINTENANCE TEST 

o 
o 
o 

o 
o 
o 
o 
o 
o 



u 
o 



o 
o 
o 
o 
o 
o 
o 
o 

■O 



RAGE 16 RB0y SRC RB09 SYSTEM PJAGNOSTJC 



O 007S3 R A ByPF , BLOCK 3,0^0 

0i7S3 R 001/!?^ R BUFEND BljFEND 



EJECT 



o 
o 
o 



O /TITLE HB09 IOT»S 

00721 R 707104 A DSLD 707104 " /LOAD DISK ADDRESS 

0^722 R 7071^1 A DSSF 707121 /SKIP ON FLAG 

O 00723 R 707124 A DSL,W 707124 /l,PAD WQRD COUNT O 

00724 R 7071^2 A OSRS 707132 /REAP STATUS 

00725 R 707141 A DSCS 707141 /CLEAR STATUS 

O 00726 R 707142 A QSLM 707142 /LOAD CORE ADDRESS O 

00727 R 707144 A DSLS 707144 /LOAD STATUS 

O /TITLE VARIABLES O 

00730 R 000000 A ACSAVE /CONTENTS OF AC IF APIi IF PI 

00731 R 000000 A REPLOP 

O Sd7>52 R 000000 A SCSAVE /STEP COUNTER O 

00733 R 000000 A MQSAVE /MQ 

00734 R 0000ii)g A SVEXJT /SAVE EXIT WHEN HOLDING ON SWJTCH 

O 00735 R 000000 A FnSAVE /FUNCTlONi READ OR WRITE O 

00736 R 000.000 A HASH 

^0737 R 000127 A PRIME 127 /INCREMENT TRACK BY 1|SEGMENT BY 7 

O 00740 R 000000 A SLOCK /TRACK ADDRESS O 

00741 R 000000 A ERRCNT /NUMBER OF R809 RETRIES 

00742 R 000000 A RDFTRY 

O 00743 R 000000 A STAT /RB09 STATUS WORD O 

00744 R 0000K0 A LOOP 

00745 R 000000 A ARTFLG /0 IF EXPECTING FLAG ENTRY 

O /NDN"2ER0 IF EXPECTING ARTIFICIAL ENTRY O 

00746 R 000000 A POINTR 8 

00747 R 000000 A ROCHAR /EXPECTED CHARACTER ON COMPARE ERROR 

O 00750 R 000000 A RUNNM8 /pAsS COUNTER O 

007131 R 000000 A START /FIRST BLOCK OF TEST 

007iP2 R 0007t?3 R BUFFER BUFF /FIRST WORO OF MOVING BUFFER 



O 
O 
O 
O 

o 
o 

O 

o 
o 
o 



o 
o 

RB09 SYSTEM OIAGNPSTIC 
O • .ITORG 

O 



o 
o 
o 



o 



o 
o 
o 



o 



o 



o 



o 
o 
o 
o 
o 
o 



AGE VI 




RB0y 




5RC 


017i34 


R 


000753 


R 


*L 


017i35 


R 


100000 


A 


^l 


317S6 


R 


000120 


A 


«L, 


017S7 


R 


CJ00200 


A 


^*L 


01760 


R 


00012 7 


A 


^V, 


01761 


R 


000266 


R 


"V. 


01762 


R 


400000 


A 


^l 


01763 


R 


000007 


A 


«L, 


01764 


R 


000010 


A 


«l 


01765 


R 


000011 


A 


^l 


01766 


R 


wmyi'n 


A 


«l 


01767 


R 


6 40402 


A 


<»l 


01770 


R 


640477 


A 


<*L 


017 71 


R 


000001 


A 


U 


01772 


R 


007000 


A 


**L 


01773 


R 


740600 


A 


'^l. 


01774 


R 


037200 


A 


'^V. 


01775 


R 


006000 


A 


«L 


01776 


R 


biini^ 


A 


^L 


01777 


R 


040000 


A 


^V 


02000 


R 


776000 


A 


^l. 


02001 


R 


777600 


A 


<»l 


02002 


R 


000136 


A 


<M, 


02003 


R 


777400 


A 


«l 


02004 


R 


000134 


A 


^x 


02005 


R 


7 77000 


A 


**l« 


02006 


R 


000150 


A 


*l 


02007 


R 


000004 


A 


^l* 


02010 


R 


00023 


R 


«l 


02011 


R 


000005 


A 


^l 


02012 


R. 


000005 


A 


**l 


02013 


R 


000017 


A 


«k 


02014 


R 


nntb 


A 


«l. 


02015 


R 


11111% 


A 


»l. 


02016 


R 


000002 


A 


^\ 


02017 


R 


000024 


R 


^l 


02020 


R 


000303 

000000 


A 
R 


*l. 






SUE: 


=02023 



o 
o 

o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 



„ . ., ,END UO03W _ 

O SJzfE = 02023 NO ERROR LINES O 



O 
O 

o 
o 
o 
o 



u 
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SRG 


RB09 


SYSTEM PIAGNOSTIC 










o 


ACSAVE 


00730 


R 


APlQFF 


00122 


R 


APIOFI 


00127 


R 


ARTFLG 


00745 


R 




ARTXIT 


00211 


R 


BBTMPl 


00715 


R 


BBTHP2 


00716 


R 


BBtMP3 


00717 


R 




BCDOUT 


00235 


R 


BINBCD 


00665 


R 


BLKCMP 


00002 


R 


BLOCK 


00740 


R 


o 


BUFEND 


017S3 


R 


BUFF 


00753 


R 


BUFFER 


00752 


R 


ClAC 


641000 


A 




CMPMAX 


00003 


R 


DBK 


703304 


A 


PBR 


/'03344 


A 


DISK 


00553 


R 




DJSKRP 


00560 


R 


DISK2 


■00633 


R 


P1SK3 


'00644 


R 


DiSK4 


00655 


R 




DQNE 


00462 


R 


DONEl 


00460 


R 


DSCS 


00725 


R 


DSKWC 


00570 


R 




PSUD 


00721 


R 


DSLM 


00726 


R 


PSl,S 


00727 


R 


psuw 


00723 


R 




DSRS 


00724 


R 


DSSF 


00722 


R 


eba' 


/07764 


A 


EEM 


707702 


A 


O 


ERCODE 


00022 


R 


EHRCNT 


00741 


R 


ERRPR7 


'00137 


R 


ERWC 


00021 


R 




ER7,1 


00142 


R 


ER7,2 


00143 


R 


EXIT 


00174 


R 


FNSAVE 


00735 


R 




HASH 


00736 


R 


HRPMAX 


00001 


R 


ill, I NT 


00163 


R 


ISA 


705504 


A 


o 


LOOP 


00744 


R 


MAITSC 


00720 


R 


MONEXT 


00170 


R 


MPVBFl 


00550 


R 




MOVBUF 


00537 


R 


MQSAVE 


00733 


R 


nofCag 


00134 


R 


POINTR 


00746 


R 




PRJHE 


00737 


R 


PUTCHK 


00225 


R 


PUTQKl 


00232 


R 


RBINIT 


00032 


R 


o 


RBINTl 


00057 


R 


RBINT2 


00064 


R 


RBSERV 


00076 


R 


RBSERl 


00113 


R 




RPCHAR 


00747 


R 


RPEROR 


00471 


R 


RDFERR 


00473 


R 


RDFERl 


80527 


R 




RPFTRY 


00742 


R 


RDREP 


00535 


R 


READ 


00333 


R 


READl 


00405 


R 


o 


REAP2 


00336 


R 


REAb3 


00357 


R 


REPLOP 


00731 


R 


RPl 


705512 


A 




RUNNMB 


00750 


R 


SCSAVE 


00732 


R 


SPJ 


705501 


A 


START 


00751 


R 




STAT 


00743 


R 


SVEXIT 


00734 


R 


SWITCH 


'00010 


R 


SYSCOM 


00020 


R 


o 


UODSW 
,12 


00000 
00670 


R 

R 


WRITE 


00266 


R 


WHJTEl 


00276 


R 


,1^ 


00673 


R 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 

o 
o 

o 
o 
o 
o 
o 
o 



(J 



o 
o 
o 
o 
o 
o 
o 
o 



o 



o 



PAGE 19 RB0y 


SRC 


RB09 


SYSTEM PJAGNOSTIC 










UODSN 


00000 


R 


hrdmax 


00001 


R 


BLKOMP 


00002 


R 


CMPMAX 


00003 


R 


SWITCH 


00010 


R 


SYSCOH 


00020 


R 


ERWg 


00021 


R 


ERCODE 


00022 


R 


KBINIT 


00032 


R 


RBINTl 


00057 


R 


RBJNT2 


00064 


R 


RBSERV 


00076 


R 


RBSERl 


00113 


R 


API OFF 


00122 


R 


AP^OFl 


00127 


R 


NOFUAG 


00134 


R 


e;rror7 


00137 


R 


ER7,1 


00142 


R 


ER7,2 


00143 


R 


lllIMT 


00163 


R 


MONEXT 


003.70 


R 


EXIT 


00174 


R 


AKTXIT 


00211 


R 


PUTCHK 


00225 


R 


PUTCKl 


00232 


R 


BCDQUT 


00235 


R 


WRITE 


00266 


R 


WRlTEl 


00276 


R 


READ 


00333 


R 


READ2 


00336 


R 


rea63 


00357 


R 


REAOi 


00405 


R 


PONEl 


00460 


R 


DONE 


00462 


R 


ROEHOR 


00471 


R 


RUFERR 


00473 


R 


RDFERl 


00527 


R 


RDREP 


00535 


R 


MOVBUF 


00537 


R 


MDVBFi 


00550 


R 


DISK 


00553 


R 


DISKRP 


00560 


R 


DSKWC 


00570 


R 


0ISK2 


00633 


R 


0iSK3 


00644 


R 


DISK4 


00655 


R 


BlNBCD 


00665 


R 


,12 


00670 


R 


ii0 


00673 


R 


BBTHPl 


00715 


R 


B8TMP2 


00716 


R 


BBTMP3 


00717 


R 


MAITSC 


00720 


R 


DSLD 


007?1 


R 


DSSF 


00722 


R 


DSl,W 


00723 


R 


OSRS 


00724 


R 


DSCS 


00725 


R 


OStM 


00726 


R 


DSIS 


00727 


R 


ACSAVE 


00730 


R 


REPLOP 


00731 


R 


SCSAVE 


00732 


R 


mqsave 


00733 


R 


SVEXIT 


00734 


R 


FNSAVE 


00735 


R 


HASH 


00736 


R 


PRIME 


00737 


R 


Bl,OCK 


00740 


R 


EHRCNT 


00741 


R 


ROFTRY 


00742 


R 


STAT 


00743 


R 


IQOP 


00744 


R 


ARTFLG 


00745 


f^ 


POINTR 


00746 


R 


RPqHAR 


00747 


R 


RUNNMB 


00750 


R 


START 


00751 


R 


BUFFER 


00752 


R 


BUFF '■ 


00753 


R 


BUFEND 


01753 


R 


Cl,AC 


641000 


A 


DHK 


/03304 


A 


DBR 


703344 


A 


SP| 


705501 


A 


ISA 


705504 


A 


RPE 


705512 


A 


EEM 


707702 


A 


EBA 


707764 


A 





















o 
o 

o 
o 
o 
o 
o 
o 
o 
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